home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / demos / GL / atlantis / contour.c < prev    next >
C/C++ Source or Header  |  1994-08-01  |  6KB  |  205 lines
  1. /*
  2.  * Copyright 1992, 1993, 1994, Silicon Graphics, Inc.
  3.  * All Rights Reserved.
  4.  *
  5.  * This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon Graphics, Inc.;
  6.  * the contents of this file may not be disclosed to third parties, copied or
  7.  * duplicated in any form, in whole or in part, without the prior written
  8.  * permission of Silicon Graphics, Inc.
  9.  *
  10.  * RESTRICTED RIGHTS LEGEND:
  11.  * Use, duplication or disclosure by the Government is subject to restrictions
  12.  * as set forth in subdivision (c)(1)(ii) of the Rights in Technical Data
  13.  * and Computer Software clause at DFARS 252.227-7013, and/or in similar or
  14.  * successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished -
  15.  * rights reserved under the Copyright Laws of the United States.
  16.  */
  17. #include <stdio.h>
  18. #include    "gl.h"
  19.  
  20. unsigned long *longimagedata();
  21.  
  22. float texture_props[] = {TX_MINFILTER,TX_BILINEAR,TX_MAGFILTER,TX_BILINEAR,0};
  23. float env_props[] = {TV_NULL};  /* use default texture environment properties */
  24.  
  25. /*
  26.  *  texinit reads in, defines, and binds the texture.  It also
  27.  *  defines the texture environment, and it sets up and turns on
  28.  *  the texture generation.
  29.  *
  30.  */
  31.  
  32. void
  33. texinit(void)
  34. {
  35.     long *image;    /* the image to be used as the texture */
  36.     long width, height;
  37. /* in T, the z-component C should be such that C * Max Amp is about 0.5,
  38.    with D also 0.5, which makes the equation work between 0.0 and 1.0
  39.  
  40.    For a mathematically defined sea, Max Amp is 0.5 tmies the sum of all wave term amplitudes */
  41.     static float t_params[4] = { 0., 0., 0.0005, 0.};   /* plane for T-coordinates */
  42. /* in S, all experiments are valid */
  43.     static float s_params[4] = { 0.0005, 0., 0., 0.};   /* plane for S-coordinates */
  44.  
  45.  
  46.     image = (long *) longimagedata("sea.rgb", &width, &height);
  47.     if (image == NULL) {
  48.     fprintf(stderr, "Cannot find file sea.rgb -- texturing disabled\n");
  49.     return;
  50.     }
  51.     texdef2d(1,4,width,height,(const unsigned int *) image,1,texture_props);
  52.     tevdef(1,1,env_props);
  53.     tevbind(TV_ENV0,1);
  54.     texgen(TX_T, TG_CONTOUR, t_params);
  55.     texgen(TX_S, TG_CONTOUR, s_params);
  56. }
  57.  
  58. #include "gl.h"
  59. #include "device.h"
  60. #include "gl/image.h"
  61.  
  62. struct picture {
  63.     unsigned long image[16384];
  64. } icommon_ ;
  65.  
  66. void *longimagedata_(name, width, height)
  67. char *name;
  68. long *width, *height;
  69. {
  70.     unsigned long *longimagedata();
  71.     unsigned long *temp;
  72.     register int i;
  73.  
  74.     temp = longimagedata(name,width,height);    
  75.     if (!temp) return NULL;
  76.     for (i = 0; i < 16384; i++)
  77.     icommon_.image[i] = temp[i];
  78. }
  79.  
  80. unsigned long *longimagedata(name, width, height)
  81. char *name;
  82. long *width, *height;
  83. {
  84.     unsigned long *base, *lptr;
  85.     short *rbuf, *gbuf, *bbuf, *abuf;
  86.     IMAGE *image;
  87.     int y;
  88.  
  89.     image = iopen(name,"r");
  90.     if(!image) {
  91.     return NULL;
  92.     }
  93.     *width = image->xsize;
  94.     *height = image->ysize;
  95.     base = (unsigned long *)malloc(image->xsize*image->ysize*sizeof(unsigned long));
  96.     rbuf = (short *)malloc(image->xsize*sizeof(short));
  97.     gbuf = (short *)malloc(image->xsize*sizeof(short));
  98.     bbuf = (short *)malloc(image->xsize*sizeof(short));
  99.     abuf = (short *)malloc(image->xsize*sizeof(short));
  100.     if(!base || !rbuf || !gbuf || !bbuf) {
  101.     fprintf(stderr,"longimagedata: can't malloc enough memory\n");
  102.     exit(1);
  103.     }
  104.     lptr = base;
  105.     for(y=0; y<image->ysize; y++) {
  106.     if(image->zsize>=4) {
  107.         getrow(image,rbuf,y,0);
  108.         getrow(image,gbuf,y,1);
  109.         getrow(image,bbuf,y,2);
  110.         getrow(image,abuf,y,3);
  111.         rgbatocpack(rbuf,gbuf,bbuf,abuf,lptr,image->xsize);
  112.         lptr += image->xsize;
  113.     } else if(image->zsize==3) {
  114.         getrow(image,rbuf,y,0);
  115.         getrow(image,gbuf,y,1);
  116.         getrow(image,bbuf,y,2);
  117.         rgbtocpack(rbuf,gbuf,bbuf,lptr,image->xsize);
  118.         lptr += image->xsize;
  119.     } else {
  120.         getrow(image,rbuf,y,0);
  121.         bwtocpack(rbuf,lptr,image->xsize);
  122.         lptr += image->xsize;
  123.     }
  124.     }
  125.     iclose(image);
  126.     free(rbuf);
  127.     free(gbuf);
  128.     free(bbuf);
  129.     free(abuf);
  130.     return base;
  131. }
  132.  
  133.  
  134. bwtocpack(b,l,n)
  135. register unsigned short *b;
  136. register unsigned long *l;
  137. register int n;
  138. {
  139.     while(n>=8) {
  140.     l[0] = 0x00010101*b[0];
  141.     l[1] = 0x00010101*b[1];
  142.     l[2] = 0x00010101*b[2];
  143.     l[3] = 0x00010101*b[3];
  144.     l[4] = 0x00010101*b[4];
  145.     l[5] = 0x00010101*b[5];
  146.     l[6] = 0x00010101*b[6];
  147.     l[7] = 0x00010101*b[7];
  148.     l += 8;
  149.     b += 8;
  150.     n -= 8;
  151.     }
  152.     while(n--) 
  153.     *l++ = 0x00010101*(*b++);
  154. }
  155.  
  156. rgbtocpack(r,g,b,l,n)
  157. register unsigned short *r, *g, *b;
  158. register unsigned long *l;
  159. register int n;
  160. {
  161.     while(n>=8) {
  162.     l[0] = r[0] | (g[0]<<8) | (b[0]<<16);
  163.     l[1] = r[1] | (g[1]<<8) | (b[1]<<16);
  164.     l[2] = r[2] | (g[2]<<8) | (b[2]<<16);
  165.     l[3] = r[3] | (g[3]<<8) | (b[3]<<16);
  166.     l[4] = r[4] | (g[4]<<8) | (b[4]<<16);
  167.     l[5] = r[5] | (g[5]<<8) | (b[5]<<16);
  168.     l[6] = r[6] | (g[6]<<8) | (b[6]<<16);
  169.     l[7] = r[7] | (g[7]<<8) | (b[7]<<16);
  170.     l += 8;
  171.     r += 8;
  172.     g += 8;
  173.     b += 8;
  174.     n -= 8;
  175.     }
  176.     while(n--) 
  177.         *l++ = *r++ | ((*g++)<<8) | ((*b++)<<16);
  178. }
  179.  
  180. rgbatocpack(r,g,b,a,l,n)
  181. register unsigned short *r, *g, *b, *a;
  182. register unsigned long *l;
  183. register int n;
  184. {
  185.     while(n>=8) {
  186.     l[0] = r[0] | (g[0]<<8) | (b[0]<<16) | (a[0]<<24);
  187.     l[1] = r[1] | (g[1]<<8) | (b[1]<<16) | (a[1]<<24);
  188.     l[2] = r[2] | (g[2]<<8) | (b[2]<<16) | (a[2]<<24);
  189.     l[3] = r[3] | (g[3]<<8) | (b[3]<<16) | (a[3]<<24);
  190.     l[4] = r[4] | (g[4]<<8) | (b[4]<<16) | (a[4]<<24);
  191.     l[5] = r[5] | (g[5]<<8) | (b[5]<<16) | (a[5]<<24);
  192.     l[6] = r[6] | (g[6]<<8) | (b[6]<<16) | (a[6]<<24);
  193.     l[7] = r[7] | (g[7]<<8) | (b[7]<<16) | (a[7]<<24);
  194.     l += 8;
  195.     r += 8;
  196.     g += 8;
  197.     b += 8;
  198.     a += 8;
  199.     n -= 8;
  200.     }
  201.     while(n--) 
  202.         *l++ = *r++ | ((*g++)<<8) | ((*b++)<<16) | ((*a++)<<24);
  203. }
  204.  
  205.